
(map (lambda (e)
       (apply midi-delta-ticks-to-seconds e))
     '((128 1024 90) 
       (512 1024 90) 
       (512 1024 60)))			; => (1/12 1/3 1/2)

(map (lambda (e)
       (apply midi-seconds-to-delta-ticks e))
     '((1/12 1024 90) 
       (1/3 1024 90) 
       (1/2 1024 60)))			; => (128 512 512)

;; #xE250 is 30 FPS (Frames per second) and 80 TPF (Ticks Per Frame).
;; In the case of a time-code based division the tempo value is
;; ignored.

(map (lambda (e)
       (apply midi-delta-ticks-to-seconds e))
     '((200 #xE250 #f) 
       (400 #xE250 #f) 
       (2400 #xE250 #f)))		; => (1/12 1/6 1)

(map (lambda (e)
       (apply midi-seconds-to-delta-ticks e))
     '((1/12 #xE250 #f) 
       (1/6  #xE250 #f) 
       (1    #xE250  #f)))		; => (200 400 2400)

(midi-pulses-to-delta-ticks 1 96)	; => 96

(map midi-qpm-to-tempo-meta-event
     '(60 90 150))			; => (1000000 666667 400000)

(map midi-tempo-meta-event-to-qpm
     '(1000000 666667 400000))		; => (60 90 150)

(map midi-division-is-metrical? '(32767 32768)) ; => (#t #f)

(map midi-division-is-time-code? '(32767 32768)) ; => (#f #t)

(midi-division-is-time-code? #xE250) 	; => #t

(midi-division-time-code-format #xE250) ; => 30

(midi-division-ticks-per-frame #xE250)	; => 80
